ADA Programming Guide/ADA Programming Guide.iso/ada_gwu/adaed/spider/draw7.ada

Text File | 1996-01-30 | 277 b | 14 lines

WITH Spider; USE Spider;
PROCEDURE Drawing7 IS
BEGIN
Start;
Red;
WHILE NOT AtWall LOOP -- the WHILE statement starts the loop
     Step; --  any statements here are repeated
END LOOP;
Green;  --  then execution proceeds from here
Turn;
Step;
Quit;
END Drawing7;